Imports DAO
Imports DTO
Public Class LichHocBUS
    Public Sub Them(ByVal lhDTO As LichHocDTO)
        Dim lhDAO As New LichHocDAO()
        lhDAO.Them(lhDTO)
    End Sub
    Public Sub XoaTheoMa(ByVal maPhanCong As String)
        Dim lhDAO As New LichHocDAO()
        lhDAO.XoaTheoMa(maPhanCong)

    End Sub
  
    Public Function TiemKiemTheoMa(ByVal maPhanCong As String) As LichHocDTO
        Dim lhDTO As LichHocDTO
        Dim lhDAO As New LichHocDAO()
        lhDTO = lhDAO.TiemKiemTheoMa(maPhanCong)
        Return lhDTO
    End Function
    Public Function LayBang() As DataTable
        Dim dt As DataTable
        Dim lhDAO As New LichHocDAO()
        dt = lhDAO.LayBang()
        Return dt
    End Function
    Public Sub CapNhatBang(ByVal dt As DataTable)
        Dim lhDAO As New LichHocDAO()
        lhDAO.CapNhatBang(dt)
    End Sub
    Public Function LayDanhSach() As IList
        Dim ds As IList
        Dim lhDAO As New LichHocDAO()
        ds = lhDAO.LayDanhSach()
        Return ds
    End Function
End Class
